Private Sub Form_Load()
    MMControl1.Command = "Open"
    MMControl1.Command = "Play"
End Sub

Private Sub Form_Unload(Cancel As Integer)
    MMControl1.Command = "Stop"
    MMControl1.Command = "Close"
End Sub

Private Sub MMControl1_StatusUpdate()
    lbl_track.Caption = MMControl1.Track
End Sub

Private Sub cb_exit_Click()
    Unload Me
    End
End Sub
